setwd('~/Dropbox/Research/Project - LDA+IRT (TC)/CodeForPaper/')	

library(eliot)	
load("LDA+IRTPaperData.RData")

setburn <- 5000	
setmcmc <- 10000

for (setLDAtopics in c(2,24)){

	LDAIRT.out <- LDAIRT(WordSparseMatrix, VoteMatrix,LDA.topics= setLDAtopics, save.word.chain=FALSE, save.topic.chain=FALSE, save.ideal.chain=TRUE, save.discrim.chain=FALSE, burn.iter= setburn,mcmc.iter= setmcmc,IRT.polarity=-30)
	currentfilename <- paste("~/Dropbox/Research/Project - LDA+IRT (Saved MCMC)/SavedLDAIRT-",setLDAtopics,"-",setburn,"-",setmcmc,".RData",sep="")
	save(LDAIRT.out,file=currentfilename)
	rm(LDAIRT.out)
	
} 